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About This Book 

This book contains simple games 
programs to play on a microcomputer. 
They are written for use on ZX8 1 , ZX 
Spectrum, BBC, VIC 20, 
TRS-80 and Pet and Apple micros, and 
many are short enough to fit into the 
ZXSl's IK of memory. 

Most micros use the language BASIC, 
but they all have their own variations or 
dialects. In this book, the main listing for 
each program works on the ZX8 1 and 
lines which need changing for the other 
computers are marked with symbols and 
printed underneath. The fact that the 
programs are written for several micros 
means that they do not make full use of 
each one's facilities. You could try 
finding ways of making the programs 
shorter and neater for your micro. 

For each game, there are ideas for 
changing and adding to the programs 
and towards the back of the book you 
will find tips and hints on writing games 
of your own. Also in the book is a 
conversion chart to help you adapt 
programs in magazines and other books 
for your micro and a summary of the 
BASIC terms used in this book. 

Typing in the programs 

Lines which need changing for 
computers other than ZX8 1 are marked 
with these symbols: 
a VIC and Pet 

* BBC and Acorn Electron 
■ TRS-80 

• Apple 
s ZX Spectrum 

Every time you see the symbol for the 
micro you are using, look below for the 
corresponding line number with the 
same symbol and type that in instead. 

VIC 20 versions of all except the graphics program should work on 
Pet computers. 




Points to remember 

1 Type the lines exactly as they are printed 
including all punctuation and spaces. 

2 Press RETURN, NEWLINE or ENTER 
key at the end of each program line. 

3 Check each line as you go. 

4 Make sure you don't miss out a line or 
confuse one with another. A piece of paper 
or a ruler is useful to mark your place in 
the listing. 

5 Look out for the symbols and make sure 
you use the correct lines for your 
computer. 

6 If you are using a ZX8 1 or ZX Spectrum, 
remember not to type the program 
instructions letter by letter but to use the 
special key for each instruction instead. 

You may find it easier to get someone to 
read the program out to you while you 
type it in. Don't forget to explain that they 
must read every comma, fullstop, bracket 
and space and differentiate between letter 
"O" and zero, FOR and 4, and TO and 2. 

Debugging programs 



When you have typed 
in the program, check 
your manual to find out 
how to display it on the 
screen. (Usually you 
type LIST followed by 
the line numbers of the 
section you want t o 

•) 




Check you have 
typed everything 
correctly. It is easy to 
make mistakes, so 
expect to find some. Use 
your manual to find out 
how to make changes to 
the program once it is 
typed in. If in doubt, you 
can always type the line 
again. All the computers 
will replace an existing 
line with a new one with 
the same number. 
Here is a checklist of common 
mistakes to look out for: 

1 Line missed out 

2 Line wrongly numbered 

3 The beginning of one line joined onto 
the end of another. 





4 Brackets, commas, colons, semi- 
colons, fullstops or spaces missed out, 
especially in long, complicated lines. 
Watch for double brackets in particular. 

5 Wrong line used for your computer. 

6 Letter "O" confused with zero. 

7 Wrong numbers used, e.g. extra zeros 
included. 

Playing the games 

To start the game you must type RUN. In 
some games things happen very quickly, 
so make sure you have read the 
instructions and know what you are 
supposed to do. 

It is quite likely that the program still 




has a mistake in it and either won't 
at all or the game won't work properly. 
Sometimes your computer will give you 
an error code which you can look up in 
the manual. This may help you find the 
mistake, though not always. List the 
program again and check it carefully 
against the book. 

When the game is over, the computer 
will usually say something like BREAK IN 
LINE 200. To play again, you have to type 
RUN. 

Experimenting with the games 

There are suggestions for changing and 
adding to the programs throughout the 
book, but don't be afraid to experiment 
with changes of your own. You can't 
damage the computer and you can 
always change back to the original if the 
changes don't work. 

You will probably find you want to 
adjust the speed of some games, * 
especially after you have played them a 
number of times. You will find out which 
line to change on each program page. 

Wherever you see 
PRINT, you can 
change the message in, 
quotes that follows it to) 
whatever you like . 
Also, unless you have 
ZX8 1 with only IK, you 
can add extra 
messages. 

Type a line number (say 105 if you want 
to add a message between lines 100 and 
110), then type PRINT, then your 
message inside quotes. 

If your computer can make colours 
and sounds, you could use your manual 
to find out how they work and try adding 
them to the games in this book. 





*See page 37 for a special note for BBC and Spectrum users. 



Starship Takeoff 

You are a starship captain. You have crashed your ship on a 
strange planet and must take off again quickly in the alien 
ship you have captured. The ship's computer tells you the 
gravity on the planet. You must guess the force required for a 
successful take off. If you guess too low, the ship will not lift 

off the ground. If you guess too high, the ship's fail-safe 
mechanism comes into operation to prevent it being burnt 
up. If you are still on the planet after ten tries, the aliens will 

capture you. 





10 CLS 

20 PRINT "STARSHIP TAKE-OFF" 



★ 



130 LET G 
A«40 LET W 



INT(RND*20+1> 
INT(RND*40+1> 




How the program works 

' Clears the screen. 

Computer selects two 
• numbers - one between 1 and 
20 to be put in G, the other 
between 1 and 40 to be put in W. 



50 LET R=G*W 



60 PRINT "GRAVITY= " ; G 



70 PRINT 
80 FOR C 



TYPE IN 
1 TO 10- 



FORCE 



■1 



90 INPUT F 




100 IF F>R THEN PRINT "TOO 
110 IF F<R THEN PRINT "TOO 
120 IF F=R THEN GOTO 190 



HIGH 
LOW" 




Multiplies the number in G 
by number in W. Puts result 
in R. 

Prints GRAVITY and number 
inG. 

Asks yon for a number. 

This begins a loop which tells 
the computer to repeat the next 
section 10 times, to give yon 
10 goes. 

Stores your number in F. 

Compares number in F with 
number in R and prints 
appropriate message or 
jumps to 190. 



130 IF CO10 THEN PRINT 



ii 



TRY A6A I N " — Prints if you've had less 

than 1 goes without a correct 
answer. 



140 

150 
160 
170 
180 
190 



NEXT C 

PRINT 
PRINT 
PRINT 
STOP 
PRINT 



"YOU FAILED -" 

" THE ALIENS GOT YOU 



it 



"GOOD TAKE OFF" 

The above listing will work on a ZX81 . For 
other computers, make the changes below. 
•10 HOME 

A10 PRINT CHR«<147> 
★a«30 LET G=INT(RND<1> *20) 

■30 LET 6=INT(RND(0) *20> 
*A»40 LET W=INT(RND<1) »40) 

■40 LET W=INT(RND(0> *40) 



End of loop. Goes back to 80 
for another turn. 

Prints after 10 unsuccessful 
goes. 



OnallbutZX81 and 
Spectrum, you can 
replace STOP with 
END. (Notice what 
happens when you 

do.) 

~ Ml 



How to make the game harder 

You can change the program to give 
you less than 1 goes. Do this by 
altering the last number in line 80 and 
the number in line 1 30. (They must be 
the same.) 




Puzzle corner 



You could change the range of possible 
forces. See if you can work out how. 




See page 2 for m eaning of • a ■ ★ 



Intergalactic Games 

There is fierce competition among the 
world's TV companies for exclusive 
coverage of the First Intergalactic Games. 
Everything depends on which company 
wins the race to put a satellite into orbit at 
the right height. 

You are the Engineer in charge of the 
launch for New Century TV. The crucial 
decisions about the angle and speed of the 
launching rocket rests on your shoulders. 
Can you do it? 





★■AO 



How the program works 

10 PRINT " INTERGALACTIC GAMES" ™| Chooses the height to which 

20 LET H=INT (RNDt lOO+l ) L_ you must launch youx 

30 PRINT "YOU MUST LAUNCH A SATELLITE"! satellite, puts it in H and 

40 PRINT "TO A HEIGHT OF ";H J prints it. 

50 FOR 6=1 TO 8 Beginning of loop to give yon 

8 goes. 
Asks you for an angle and 
puts it in A. 

you for a speed and puts 
itinV. 

Uses H to calculate what the 

1 00 LET A=A-ATN (H/3) < 1BO/3- 14159 angle should be and 

subtracts this from your 
guess to find out how close 
you were. 

110 LET V= V -3000 * SQR ( H+ 1 / H ) — — — Works out what the speed 

should be and subtracts it 
from your guess. 



80 PRINT " ENTER SPEED < 0-40000) 
90 INPUT V 




120 IF ABS(A)<2 AND ABS<V)<100 THEN GOTO 



IF A<-2 THEN PRINT "TOO SHALLOW" 
IF A>2 THEN PRINT "TOO STEEP" 
IF V<-100 THEN PRINT "TOO SLOW" 
IF V>100 THEN PRINT "TOO FAST" 



NEXT G 

PRINT 
PRINT 
STOP 
PRINT 
PRINT 
STOP 



"YOU'VE FAILED" 
"YOU'RE FIRED" 



210 Checks if 

you were close enough to 
win and if so jumps to 2 1 0. 

Prints an appropriate 
comment to help you with 
your next go. 

Goes back for another go. 

Prints after 8 unsuccessful 
goes. 



"YOU'VE DONE IT" 
"NCTV WINS-THANKS TO YOU" 



Prints if you win. 



The above listing will work on a ZX8 1 . For 
other computers, make the changes below. 

■20 LET H=INT (RND(O) *10O+l) 
*A«20 LET H=INT(RND(1)*100+1) 



7 



Adding to the program 

These three extra lines will make the 
computer give you bonus points 
depending on how quickly you make a 
successful launch. 



ii 



222 LET B=INTClQOO/G) 
225 PRINT "YOU'VE EARNED A 
227 PRINT " BONUS OF ";B;" CREDITS" 




Puzzle corner 



Can you change the program so that, if 
you win, it automatically goes back for 
another game, adding the bonus you've 
already earned to any new bonus? 
(Hint: you need to change two lines 
and add one.) 

See how long you can play before 
NCTV fires you. 



Evil Alien 



Somewhere beneath you, in deepest, blackest space, 
lurks Elron, the Evil Alien. You have managed 
to deactivate all but his short-range weapons 
but he can still make his ship invisible. 
You know he is somewhere within the 
three-dimensional grid you can see 

on your ship's screen (see 
below), but where? 
You have four space bombs. 
Each one can be exploded at 

a position in the grid 
specified by three numbers 
between and 9, which 
your computer will ask 
you for. Can you blast 
the Evil Elron out 
of space before he 
creeps up and 
captures you? 




(West) 



(East) 




5 CLS 

10 PRINT "EVIL ALIEN" 
20 LET S=10 




How the program works 



30 LET G=4 



★■A»40 

*BA«50 

★■A«60 



X= 
Y= 

LET D= 



INT (RND*S) 
INT (RNDtS) 
INT (RNDtS) 



70 FOR 1=1 TO G 




ll 



80 PRINT "X POSITION <0 TO 9>?" 
85 INPUT XI 

90 PRINT "Y POSITION <0 TO 9)? 
100 INPUT Yl 

110 PRINT "DISTANCE (O TO 9>?" 
120 INPUT Dl 



Sets the size of the grid 
Sets the number of goes. 

Elron's position is fixed by 
these 3 lines, which select 3 
numbers between and the 
size of the grid. 

Start of a loop which tells the 
computer to repeat the next 
15 lines G times. 



This section asks you for 
your 3 numbers and stores 
them in XI, Yl andDl. 



130 IF X=X1 AND Y=Y1 AND D=D1 THEN 60T0 300 



140 
150 

160 
170 
180 

190 

200 



PRINT "SHOT WAS "5 



IF Y1>Y 
IF YKY 
IF X1>X 
IF XKX 
PRINT 
IF D1>D 



THEN 
THEN 
THEN 
THEN 



PRINT 
PRINT 
PRINT 
PRINT 



"NORTH" ; 
"SOUTH"; 
" EAST " ; 
"WEST"; 



THEN PRINT "TOO FAR" 



210 IF DKD THEN PRINT " NOT FAR ENOUGH 



ll 



Checks if 
you were 
right and jumps to 
300 if you were. 

Your guesses are 
compared with Elron's 
position and a report 
printed. 




220 NEXT I 



YOUR TIME HAS RUN OUT 



230 PRINT 
240 STOP 

300 PRINT "tBOOM* YOU GOT HI 
310 STOP ■ 

The above listing will work on a ZX8 1 . For 
other computers, make the changes below. 
•5 HOME 

A5 PRINT CHR*(147) 
40 LET X=INT(RND ( 1 ) *S) 

X=INT(RND<0> *S) 
Y=INT(RND(1) *S) 
Y=INT (RND (O) *S> 
D=INT (RND < 1 > *S) 
D=INT <RND (O) *S) 



I I » 



M 



End of loop. Returns for 
another go. 

Prints if you've used up all 
your goes. 

Prints if you guessed right. 




How to make the game harder 

This program has been written so that 
you can easily change the difficulty by 
changing the size of the grid. To do this, 
put a different value for S in line 20. 

If you increase the grid size you will 
need more space bombs to give you a 
fair chance of blasting ELron. Do this by 
changing the value of G in line 30. 



Puzzle comer 

Can you work out how to change the 
program so that the computer asks you 
for a difficulty number which if can put 
into S instead of S being fixed? (Tip: limit 
the value of S to between 6 and 30 and 




Beat the Bug Eyes 



You're trapped! Everywhere you turn you catch a glimpse of the steely 

cold light of a space bug's eyes before it slithers down behind a rock 
again. Slowly the bugs edge towards you, hemming you in, waiting for a 
chance to bind you in their sticky web-like extrusions. Luckily you have 

your proton blaster with you. 
The bug eyes pop up in four different places on your screen and these 
correspond to keys 1 to 4. Press the correct key while the bug's eyes are 
on the screen and you will blast it. There are 1 bugs in all - the more you 

blast, the greater your chance of escape. 

How the program works 



10 PRINT "BUG EYES" 

20 LET S=0 

30 FOR T=l TO 10 



a«40 CLS 



*HA*50 

60 



FOR 1 = 1 TO I NT < RND* 30+20 ) 
NEXT I 




(70 LET R=INT(RND*4+1> 



★■A*80 GOSUB 21 0+30 *R 



GOSUB makes the computer 
branch out of the main 
program to a "sub-routine" 
(see next page). RETURN ai 
the end of the sub-routine 
sends it back to the main 
program again. 



Sets the score to zero for start 
of game. 

Beginning of loop which 
gives you 10 turns. 

Clears screen. 

Delay loop which lasts a 
• varying length of time, 
depending on the value of 
RND. 

■ Chooses a number from 1 to 4 
and puts it in R. 

- Jumps to one of four sub- 
routines depending on the 
value of R. This gets two 
numbers which correspond 
to a position on t he screen - 
"A" spaces across and "D" 
lines down - and then jumps 
again to 350 to move the 
cursor to this position. 



00" 



90 PRINT 
ilOO FOR 1 = 1 TO 



20 



110 LET R*=INKEY* 

120 IF R*<>" " THEN GOTO 140 

130 NEXT I 

140 IF VAL < "0"+R*> OR THEN GOTO 
150 LET 5=S+1 



10 



Prints the "bug eyes" at this 
position. 

Loops round to see if you are 
■ pressing a key. If you are, 
computer jumps to 140 and 
checks if it is the right one. 



Increases score by 1 . 



T 



) 






160 CLS 



170 
180 

★ ■ a#1 90 



GOSUB 3 
PRINT " 

FDR J=l 
NEXT J 




TO 40 




210 NEXT T 



230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 



> PRINT "YOU BLASTED ";S;"/10 BUGS" 
STOP 



Sends cursor back to the 
same position and prints a 
star. 

Delay loop to make star stay 
on screen long enough for 
you to see it. 

Goes back for next turn. 

Prints score. 



LET D=5 
LET A=l 
GOTO 350 
LET D=l 
LET A=9 
GOTO 350 
LET D=5 
LET A=18 
GOTO 350 
LET D=10 
LET A=7 
FOR 1=1 TO 
PRINT 
NEXT I 

PRINT TAB (A) 
RETURN 

The above listing will work on a ZX8 1 . For 
other computers, make the changes below. 

•40, 160 HOME 
A40,160 PRINT CHR*(147) 
■ 50 FOR 1 = 1 TD I NT ( RND ( O ) * 3OO+20O ) 
50 FOR 1=1 TO I NT < RND (1 > *300+200) 
70 LET R=INT(RNDCO)*4+l) 
70 LET R=INT(RND(1)*4+1> 
*BA«BO ON R GOSUB 240,270,300,330 
*HA#100 FOR 1 = 1 TO 150 
•105 R*="" 
Alio GET R* 
*110 R*=INKEY*<1> 

•110 IF PEEK(-163B4) >127 THEN GET 
★ ■A* 190 FOR J=l TO 300 




Sub-routines. 



R* 




How to change the 
speed 

You can speed the game 
up by changing the last 
number in line 100 to a 
lower one. 

How to use more of 
the screen 

This program was written 
to fit on the smallest 
screen width (which is the 
VIC 20). For the other 
computers, you can 
increase the values of A in 
lines 250, 280, 310 and 340. 
Check your manual to find 
the maximum width your 
computer can use. 




Puzzle corner 

Can you change the program to make 
the bugs appear in more than four 
places on the screen? Can you add more 
bugs too? 



11 



See page 2 for m eaning of • a ■ * 



Moonlander 



You are at the controls of a lunar module which is taking a small team of astronauts 
down to the moon's surface. In order to land safely you must slow down your descent 
but that takes fuel and you have only a limited supply. 

Your computer will tell you your starting height, speed and fuel supply and ask 
how much fuel you wish to burn. It will then work out your new height and speed. A 
burn of S will keep your speed constant. A higher number will reduce it. Try to have 
your speed as close to zero as you can when you land. Can you land safely on the 
moon? 



10 
20 

30 
40 
50 
60 
70 
80 



PR I NT 
LET T 
LET H 
LET V 
LET P 
PRINT 
PRINT 



" MOONLANDER " 

O 

500 



120 

"TIME'-jT, "HEIGHT" ; H 
"VEL. "; V, "FUEL" ; F 




















9 

lit 



-suit* 



• ■iii.i 



Knit 




90 IF F=0 THEN GOTO 140 



lOO PRINT "BURN? 
110 INPUT B 
120 IF B<0 THEN 
130 IF B>30 THEN 
140 IF B>F THEN 



(0-30) " 



ET B-0 
LET B=30 
ET B=F 



150 LET Vl^V-B+5 

160 LET F=F-B — 
170 IF <V1+V>/2>=H THEN GOTO 220 




180 LET H=H-(Vl+V>/2 
190 LET T=T+1 
200 LET V=V1 



210 60T0 70 

220 LET Vl=V+(5-B) *H/V 

230 IF VI >5 THEN PRINT "YOU CRASHED— ALL DEAD" 
240 IF VI >1 AND Vl<=5 THEN PRINT " OK— BUT SOME 
250 IF V1<=1 THEN PRINT "GOOD LANDING." 
260 STOP 

The above listing will work on a ZX81. For 
other computers, make the changes below. 

•10 HOME 

A10 PRINT CHR*(147) 

12 See page 2 for meaning o/e a 



INJURIES 




I- 



Sets the starting values for 
time, height, speed and fuel 

- and prints them. 

If yon have no fuel left, 
computer jumps do wn the 
program, bypassing the 
section which asks yon for a 

■ burn . It then prints a running 
commentary of your progress 
as you approach the moon's 
surface. 

■ Gets a number from you for 
the amount of fuel you wish to 
bum and checks it is within 
the correct limits. 

. Calculates your new speed, V 1 . 

■ Calculates your new fuel level. 

- Checks if the distance 
travelled in your last go is 
greater or equal to your 
height above the moon. If it 
is, you've landed. Computer 
then jumps down program to 
see how good a landing you 
made. 

1 Calculates your new height. 



- Increases time by 1. 

- Puts your new velocity into V 
so it will print in line 80 for 
your next go. 

- Goes back to beginning of 
loop for next go. 

Calculates your speed on 
• touch-down and checks what 
kind of landing it gives you. 



Adding to the program 

If you add the following lines, you will see a star 
printed each go. The distance of the star from 
the left-hand side of the screen corresponds to 
your height above the moon. 

B5 FOR 1=2 TO H/5G0*nn 

86 PRINT " M ; 

87 NEXT I 

88 PRINT 

Replace nn with the width of your screen. 

Changes to try 

Try changing the values of H, V and F in lines 40 
to 60 and see what happens. 



Puzzle corner 

You could make the game easier by increasing 
the maximum speed allowed for a safe landing. 
How would you change the program to do this? 





! 








Monsters of Galacticon 



Landing on Galacticon was easy- 
but no-one warned you that some of 
the nastiest monsters in the known 
Universe are to be found there. 

As each monster threatens, you 
must choose one of your weapons - 
araygun,atryptonblasterora 
sword laser - to use against it. Can 
you make the right choices? If so, 
you may live to conquer Galacticon. 




10 PRINT "MONSTERS OF GALACTICON" 



20 DIM M*<4) 



30 LET N=4 



40 LET M=5 



★I 



"SULFACIDOR" 
"FLAMGONDAR" 
" BALNOLOT IN" 
"GDLANDOR" 

N 

<RND*N+1> 
(RND*N+I) 

(A) 

=M* (B) 
=T* 




160 FOR 

±•170 CLS 

*BA#180 LET R=INT(RND*N+1) 

190 PRINT " MONSTER COMINi 
200 PRINT "IT'S A ";M*(R 

210 PRINT "WHICH WEAPON ? (R,S OR T> 
220 INPUT R* 
s*BA*230 LET W=CODE (R» > -54+R 

*BA240 LET W=W-3*(W>3)-3* (W>6) 



li 



250 IF W=2 THEN BOTO 300 



How the 
program works 

Sets up a storage place (an 
"array") labelled M$ with 4 
compartments in it - M$( 1), 
M$(2), M$(3) and M$(4) - one 
for each monster name. 

Sets the number of mons ters 
to 4. 

Sets the number of people in 
your group to 5. 

Puts the 4 monster names into 
the array. 

These lines shuffle the 
monsters up. Computer loops 
round N times. Each loop, it 
selects two numbers between 
1 and N and switches the 
names in the compartments 
with those numbers, T$ is a 
temporary string used during 
the switch round process. 

Beginning of loop for 8 turns. 
Clears screen 

Chooses one of the monsters 
and prints its name. 

The computer uses the values 
in R and R$ to work out a 
weapon number, W, which 
will be 1,2 or 3. 

If W is 2, the computer jumps 
to 300 to say you've killed the 
monster. 




See page 2 for m eaning ofm a m *s 



260 IF W=3 THEN GOTO 320 




270 PRINT "NO USE. IT'S EATEN ONE" 

280 PRINT "OF YOUR GROUP" 

290 GOTO 360 

300 PRINT "YOU'VE KILLED IT" 

310 GOTO 380 

320 PRINT "NO EFFECT" 

★■±•330 IF RND>.4 THEN GOTO 380 




If W is 3, computer jumps to 
320 to say "no effect". 

Prints if W is not 2 or 3. Then 
jumps to 360 to decrease 
number of people in group by 
one. 

Leading on from the "no 
effect" line is a random 



\m possibility of the monster 

340 PRINT "YOU ANGERED THE " ; M* (R) ; "AND I T " f being angered and killing 
350 PRINT "KILLED ONE OF YOUR GROUP " I someone. 

Checks if you still have some 

LET M=M-1 ~~ 
IF M<1 THEN GOTO 440 



360 
370 




380 
390 
400 
410 



FOR 1=1 
NEXT I 
NEXT T" 



TO 20 




PRINT "YOU HAVE SURVIVED TO" 
420 PRINT "CONQUER GAL AC T I CON " 
430 STOP 

440 PRINT "YOU'RE ALL DEAD" 
450 STOP 

The above listing will work on a ZX81. For 
other computers, make the changes below. 

■ 100 LET A= I NT ( RND ( O ) * N+ 1 ) 
#▲•100 LET A=INT(RND(1>*N+1> 

■ 110 LET B=INT (RND <0) *N+ 1 ) 
★±•110 LET B=INT(RND(1)*N+1> 

■170 HOME 

A 170 PRINT CHR*(147) 
■180 LET R= INT (RND CO) <N+1 ) 

R= INT (RND ( 1 ) *N+1) 
W=ASC ( R* ) -8 1 +R 

W=CODE(R*) -81 +R 
W=W+3* (W>3) +3* (W>6) 



people left. If you haven't it 
jumps to 440 to tell you. 

Delay loop to keep messages 
on screen long enongh for 
you to read them. 

Goes back for next turn. 

Prints if you still have people 
left after all your turns. 



■330 IF RND(0)>.4 THEN GOTO 3B0 
★■A#3BO FOR 1 = 1 TO 300 



180 LET 
★ ■±•230 LET 

S230 LET 
240 LET 



330 IF RND( 1) > . 4 THEN SOTO 380 




Puzzle corner 

There are at least four 
ways of making this game 
harder. 

Can you work out what 
they are? 





Alien Snipers 



-»»«•- 




7 



y 



"7 



You are the captain of an interstellar cruiser 
which, through damage to one of its hyperspace 
Lotors, has strayed into a forbidden area. Alien sniper 
ships are attacking you and, to make things worse, are 
using a jamming device on your radar which makes it give 



\ 



- • 



/ false readings. Luckily your computer knows a code which you 
^ — can use to work out the correct locations of the enemy ships. But you 
/ must be quick - they don't stay in one place for long! 
Your computer will print a letter (the false enemy location) and a code 
number. You must think through the alphabet by that number of letters and 
type in the letter you get to. E.g. for M 4, you must type 0, and for C 2, you must 
type E and so on. Typing in a letter automatically triggers off your laser 
gun, so if your letter is correct you'll score a hit. You can choose the 
difficulty of each game. This is a number between 1 and 10 and is the 
maximum number of letters to be added on each time. 
You get 10 alien snipers each game. See how many you can 



■ ■ 



S3 cm [ZZl CZD 



00 



See page 2 for meaning of 




10 
20 
30 
40 
50 
60 



PRINT "ALIEN SNIPERS" 
PRINT 

PRINT "DIFFICULTY (1-10)" 
INPUT D 

IF D<1 OR D>10 THEN 60T0 50 




70 LET S=0 



BO FOR 0=1 TO 10 



s*i 



90 LET L*=CHR*< INT (RND* (26-D)+38> > 



★■▲•100 LET N=INT (RND*D+1 ) 

110 CLS 
120 PRINT 
130 PRINT L*,N 



★ lit! 

★▲•J 



140 
150 
160 
170 



FOR 1=1 TO 20+D*5 
LET I*=INKEY* 
IF I*<>"" THEN GOTO 
XT I 



190 



180 GOTO 200 




CHART 

lb TreAi 



200 NEXT G 



▲10, 110 

■90 LET 
★▲•90 LET 

s90 

■ 1 OO 
★▲•100 
★■▲140 

• 140 

• 145 

• 150 
▲ 150 
•150 

190 



)) 
) > 



)) 



I* 



How the program works 



Gets a difficulty number from 
you, puts it in D, and checks it 
is within the correct limits. 



Sets opening score to zero. 

Beginning of loop which 
gives you 1 goes. 

Selects a letter between A 
and the letter which is your 
difficulty number before the 
end of the alphabet. 

> Selects a number between 1 
and D. 

Prints the letter and the 
number. 



Checks if you are pressing 
key and jumps to 190 if you 




★■▲•190 IF I*=CHR*(CODE(L»)+N) THEN LET S=S+1 



If you didn't press a key, 
computer jumps to line 200 
which sends it back for 
another go. 



Checks if you 
the pressed 
right key and, 
if so, increases 
your score by 1 



210 PRINT "YOU HIT ";S;"/10" 
220 STOP 

The above listing will work on a ZX8 1 . For 
other computers, make the changes below. 

•10, 110 HOME 

PRINT CHR*(147) 
L*=CHR* (INT (RND (O) * (26-D) 
L*=CHR» ( I NT ( RND ( 1 ) * ( 26-D > 
L*=CHR* < INT (RND * (26-D) +65 
LET N=INT(RND(0> *D+1> 
LET N=INT (RND ( 1 ) *D+1 ) 
FOR 1=1 TO 200+D*50 
FDR 1=1 TO 100+D*50 

I»=" " 

LET I*=INKEY*(1) 
GET I* 

IF PEEK (-16384) >127 THEN GET 
IF I*=CHR*(ASC(L*)+N) THEN LET S=S+1 



End of loop. Goes back for 
another turn. 

Prints score after 10 goes. 



★■▲• 



How to change the 
speed 

If the game is too quick for 
you, pat a higher number 
into the middle of line 140 
(i.e. to replace 20 or 200). 
You can speed it up with a 
lower number. 



How to make the game harder 

You could change the 1 in lines 40 and 
60 to, say, 3 to allow difficulties of only 3 
or more. 




Puzzle corner 

Can you adjust the scoring so that it fits 
the code number i.e. you score 1 point if 
the code is 1 , 2 points if the code is 2 and 
soon? 
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Asteroid Belt 




You are on a trip through the Asteroid Belt. To avoid crashing into the 
asteroids, you must destroy them and the force required for doing this 

depends on their size. 

Asteroids appear on your computer screen as groups of stars. To 
destroy them you must press the number key corresponding to the 
number of stars. Be prepared - asteroids come at you thick and fast. 




10 PRINT "ASTEROID BELT" 



20 LET S=0 



30 FOR G=i TO 10 

▲•40 CLS 
★■▲•50 LET A=INT<RND«1B+I> 



How the program works 

Sets the opening score to 
zero. 

Starts a loop which gives 10 
goes. 

Chooses a number 
for the position of the 
asteroid across the screen. 
Pats this in A. 



★■▲•60 LET D=INT(RND*12+1> 



★ ■▲•70 LET N=INT(RND*9+1> 



80 FOR 1=1 TO D 
90 PRINT 
100 NEXT I 



Chooses a number (1 to 12) 
for the position of the 
asteroid down the screen and 
puts it in D. 

Chooses a number ( 1 to 9) for 
the number of stars in the 
asteroid. 

Moves the cursor D lines 
down the screen. 



TO N 

AND I<>4 



HO FOR 1 = 1 
120 IF lOl 
130 PRINT 
140 PRINT TAB < A ) ; 
ISO PRINT 
160 NEXT I 

170 PRINT 



AND I<>7 THEN GOTO 150 



Loops round N times 
printing a star each 
time in the appropriate 
position. 



★ ■▲•180 FOR 1 = 1 TO lO 
★▲•190 LET G=VAL("0"+INKEY*> 
20O IF BOO THEN GOTO 240 
★210 NEXT I 

220 PRINT "CRASHED INTO ASTEROID 
230 GOTO 290 



Loops round to see if you are 
■ pressing a key and jumps to 
240 if you are. 



M 




240 IF QON THEN GOTO 270 



Prints if you run out of time. 

Checks if your number is the 
same as N and jumps to 270 if 

itisnt. 



250 PRINT "YOU DESTROYED IT" 



260 LET S=S+1 



Prints if yon pressed the right 
number. 

Increases your score by one. 



270 IF Q<N THEN PRINT "NOT STRONG ENOUGH H Compares yonr number with 
280 IF Q>N THEN PRINT " TOO STRONG " p N and prints an appropriate 

message. 



★■A«290 FOR 1 = 1 TO 50 

300 NEXT I 



310 NEXT G 



320 PRINT " YOU HIT "5S; 
330 STOP 



II 



OUT OF 10 M 




LET 



The above listing will work on a ZX81 . For 
other computers, make the changes below. 

HOME 

PRINT CHR*<147) 

A= I NT ( RND ( O > » 1 B+l > 
A=INT<RND(1)»1B+1) 
D=INT <RND (O) *12+1 ) 
D=INT(RND( 1 ) 112+1 > 
N= I NT ( RND ( O ) ¥9+1) 
N=INT(RND(1) $9+1) 

•175 Q=0 
★ 180 

180 FOR 1=1 TO 100 
A 190 GET Q 

•190 IF PEEK (-16384) >127 THEN 
★190 Q=INKEY(100>-48 

290 FOR 1=1 TO 500 
▲•290 FOR 1=1 TO 250 




LET 



See page 2 for meaning ★ 



Delay loop to keep messages 
on screen long enough for 
you to read them. 

Goes back for another go. 

Prints your score after 10 
goes. 



Changing the speed 
of the game 

Line 1 80 (1 90 for the BBC) 
controls how much time 
you have to press a key. 
Change the last number in 
180, or the number in 
brackets in the BBC line 
190, to a lower number to 
speed up the game. 




Puzzle corner 

Can you adapt the scoring 
system so that, for each 
asteroid, you get the same 
number of points as there 
are stars in it? 



Trip into the F 

Imagine you are in a 
spaceship travelling 
nearly as fast as light. 
Strangely time is 
passing more slowly 
inside your spaceship 
than outside. So, 
having set off on a long, 
fast space trip, you 
can return to Earth 
further in the future 
than the clocks inside 
your ship indicate. 

In this game, your 
computer tells you 
how many years must 
elapse on Earth 
before you return. 
You then decide the 
length of your trip (in 
light years) and the 
speed of your ship (as 
a fraction of the speed of 
light) in order to achieve 
this. Take care not to 
travel too far too slowly or 
you will die of old age on the way 





20 



PRINT 
LET T 
PRINT 
PR 
PRINT 



"TRIP INTO THE FUTURE" 
INT (RND* 100+25) 
"YDU WISH TO RETURN ";T 
" YEARS IN THE FUTURE." 



70 PRINT "SPEED OF SHIP (0-1)" 
80 INPUT V 

90 IF V>=1 OR V<=0 THEN GOTO 70 

100 PRINT "DISTANCE OF TRIP 
110 INPUT D 

120 LET T1=D/V 




How the program works 



Chooses a whole number 
between 25 and 124 for the 
years which must elapse 
before your return, and prints it. 





Gets a speed from yon and 
checks it is within the correct 
limits. 

Gets a distance from you. 

Calculates the time taken 
inside the ship. 




See page 2 for meaning of 



•as* 




130 LET T2=T1/SQR(1-V*V) 



140 PRINT "YOU TOOK " ; T 1 ; " YEARS " 
150 PRINT " AND ARRIVED "; T2 ; " YEARS ' 
1 60 PR I NT "IN THE FUTURE . " 



180 
190 
200 
210 
220 




170 IF Tl>50 THEN GOTO 210 



Calculates the time taken 
outside the ship (ie. on 
Earth). 

Prints these times. 



Checks if yon took longer 
than your lifetime (50 years). 
Jumps to line 210 if yon did. 



IF ABS <T-T 
IF ABS < T— 
STOP 

PRINT "YOU 
STOP 



)< 



5 THEN PRINT "YOU ARRIVED ON TIME"1 S?i? Ck * if 
THEN PRINT "NOT EVEN CLOSE " L within 

I 5 years 
-I and prints 
a message, 



DIED ON THE WAY" 



The above listing will work on a ZX81 . For 
other computers, make the changes below. 

•10 HOME 

A10 PRINT CHR«(147) 
■30 LET T= INT <RND (O) * 1O0+25) 
★A«30 LET T=INT<RND<l>*100-»-25) 



Puzzle corner 

Can yon work out how to change the 
program to do the following things? 



1) Give a wider range of years which 
most elapse before yon return to Earth 

2) Increase the accuracy required fron 
within 5 years to within 2 years. 

3) Shorten or lengthen your lifetime. 




mmvwa 



Death Valley 



There is only one way to escape the forces of the evil Dissectitrons. You 
will have to steel every nerve and fly your single-seater Speed Dart 
along the jagged, bottomless ravine known as Death Valley. 

Your computer will ask you for the width of the valley. Try 15* first and 
then work your way down - 8 is quite difficult. Steer your Speed Dart by 
pressing Q to go left and P to go right, and see if you can make it safely 
through Death Valley. 

* If you are using a VIC 20, then use widths of 6 to 10. 




f rniuv ■ 



z 



A MB i 



10 PRINT "DEATH VALLEY" 
20 LET 5=0 



30 LET M=ZOO*- 



40 PRINT "WIDTH?" 

50 INPUT W 

60 LET W=INT(W/2> 




A70 LET 

80 LET 
90 



l=ioH 

Y=W L 
R=W J 



Edg« 
of screen 



L spaces 



{= 10 at 
start) 



100 LET D=INTCRND*3-1) 



110 IF L+D<0 OR L+D>20 THEN GOTO 100 



120 LET L=L+D 
130 LET Y=Y-D 
140 LET R=R+D 




+D 



s 



145 SCROLL 
150 LET N=L 
160 BOSUB 1000 
170 PRINT "I M ; 

180 LET N=Y 
190 GQSUB 1OO0 
2O0 PRINT 



210 LET N=R 
220 GOSUB 1000 
230 PRINT "I" 




*A#240 LET I*=INKEY* 



250 IF I *<>"□" THEN GOTO 280 



260 LET 
270 LET 



Y=Y-1 
R=R+1 



How the program works 

Sets the number of goes used 
— to zero for start of game. 

— M is the maximum number of 
goes allowed. 

Gets a width number from 

— you, divides it by 2 and uses 
INT to remove any halves. 



L , Y and R are the distances 
between walls and Speed 
Dart. 



Y spaces 



R spaces 



(= Wat 
start) 



( = Wat 
start) 



Selects — 1, or + 1 and puts it in D. 

Checks L + D isn't so big or 
small that columns disappear 
offsides of screen. 

Changes spaces between 
columns according to the 
value of D. 



+D 

Moves cursor L spaces 
across the screen and prints 
L (The semi-colon then stops 
the cursor going down to the 
next line.) 

Moves cursor a further Y 
• spaces and prints/ 

Moves cursor a further R 
spaces and prints another L 
(No semi-colon this time, so 
the cursor then goes down to 
the next line.) 



Checks to see if you are 
pressing a key. 

If the key you are pressing is 
not Q, computer jumps to 280, 

If key is then Y is 
decreased by one and R 
increased by one so star 
moves left. 



280 IF l*O l, P" THEN GOTO 510 Checks if key being pressed is P 



290 LET Y= 
300 LET R= 



Y=Y+l"l 

R=R-1 J 



310 IF Y<1 OR R<1 THEN SOTO 370 



320 LET S=S+1 



330 IF S<M THEN GOTO 100 



"WELL DONE-YOU MADE IT 
" THROUGH DEATH VALLEY 



"YOU CRASHED INTO THE WALL" 
"AND DISINTEGRATED 1 ' 



II 




340 PRINT 
350 PRINT 
360 STOP 
370 PRINT 
380 PRINT 
390 STOP 

100O IF N=0 THEN RETURN 
1010 FOR 1=1 TO N 
1020 PRINT 
1030 NEXT I 
1040 RETURN 

The above listing will work on a ZX81 . For 
other computers, make the changes below. 

A 70 LET L=4 

■lOO LET D=INT(RND(0) *3-l ) 
*A*100 LET D=INT (RND ( 1 ) *3— 1 ) 
S*IA«145 

•235 I*= ,,M 
▲ 240 GET I* 
*240 LET I*=INKEY*(1) 

•240 IF PEEK (-16384) >127 THEN GET I* 




If so, star is moved right by 
increasing Y by one and 
decreasing R by one. 

Checks if you have crashed 
into a wall. Jumps to 370 to 
tell you if you have. 

Increases number of goes 
used by one. 

Goes back for another turn if 
you have had less than M goes. 

Prints if you have had M goes 
and no crash. 



Sub-routine for moving the 
cursor to the appropriate 
places for printing I and *. 







Slowing down the 
game 

If this game is too fast for 
you, you can add a delay 
loop at lines 141 and 142: 

141 FOR J=l TO 100 

142 NEXT J 

Change the number in line 
141 to adjust the speed - 
the lower the number the 
faster the game. 







4 




Puzzle corner 

ow can you make the 
valley longer? 




2 fa 



Space Mines 





You are the newly elected leader of a mining 
colony on the Planet Astron. All decisions 
concerning the sale of ore to Intergalactic V 
Traders, food purchase and sale and purchase of 
mines are made by you. Can you keep the people 
satisfied and survive your 10 years in office or 
will life in the colony end in disaster under your 
rule? 





LET L=INT(RND*3+5) 
LET P= INT (RND* 60+40) 
LET M=INT (RNDt50+10) *P 
LET FP= INT <RND# 40+80) 
LET CE=INT(RND*40+80) 



60 LET C=0 



70 
80 

90 



LET 
LET 



S=l 
Y=i 



How the program works 



These lines decide the number of 
mines (L), number of people (P), 
amount of money (M), price of 
food (FP) and amount of ore 
produced per mine (CE) for the 
start of the game. 

Sets the amount of ore in 
storage to zero for start. 

Sets the satisfaction factor to 1. 
Sets the year number to 1. 



LET LP=INT<RND*2000+2000) 



★■A«100 LET CP=INT(RND*12+7) 
▲•110 CLS 

" YEAR " ; Y 



Selects buying/ selling price 
for mines. 

Selects selling price for ore. 



120 PRINT 
130 PRINT 
140 PRINT 
PRINT 
PRINT 
PRINT 
PRINT 



150 
160 
170 
1BO 
190 



"THERE ARE ";P; 
"YOU HAVE " ;L;" 



PEOPLE IN THE COLONY" 
MINES , AND *"M 
"SATISFACTION FACTOR ";S 



if 



YOUR MINES PRODUCED ";CE;" TONS EACH" 



LET C=C+CE*L 



200 PRINT 
210 PRINT 
220 PRINT 
PRINT 

PRINT 



240 
250 
260 

270 



280 

290 
300 
310 
320 
330 



INPUT 

IF CS<0 OR 
LET C=C- 



"ORE IN STDRE=";C;" TONS" 
"SELLING" 

"ORE SELLING PRICE=";CP 
"MINE SELLING PRICE=";LP; 

"HOW MUCH ORE TO SELL?" - 
CS 

CS>C THEN GOTO 240 



/MINE" 



Prints current state 
of affairs in the 
colony. 



LET M=M+CS*CP 



PRINT "HOW MANY MINES TO SELL?" 
INPUT LS 

IF LS<0 OR LS>L THEN GOTO 290 
LET L=L-LS 
LET M=M+LStLP 



Asks how much ore you want 
to sell, puts it CS and checks 
you've got that much in store. 

1 Takes amount sold away 
from amount in store. 

Works out how much ore sold 
is worth and adds this to your 
money supply. 

Does the same process for 
selling mines. 



340 PRINT 

350 PRINT "YOU HAVE *";M 
360 PRINT 

370 PRINT " BUYING" 

380 PRINT "HOW MUCH TO SPEND ON FOOD ? 
390 INPUT FB 



Prints your new money supply. 



~ | Asks how 
(APPR. *100 EA. ) "I— much you 

— I want to 
spend on food and puts this in FB. 



IF FB<0 OR FB >M THEN GOTO 380 



24 



410 LET M=M-FB 



Checks you have enough 
money to pay. 

Adjusts your money supply. 




420 IF FB/P>120 THEN LET S=S+ 
430 IF FB/P<80 THEN LET S=S- 



2 J 



440 PRINT " HOW MANY MORE MINES TO BUY?" 

450 INPUT LB agM^flfll 

460 IF LB<0 OR LB*LP>M THEN BOTO 440 

470 LET L=L+LB 



480 LET M=M~LB*LP 



490 IF S<-6 THEN GOTO 660 



★■±•500 IF S>1.1 THEN LET CE=CE+INT <RND*20+1 ) 



510 IF S<.9 THEN LET CE=CE-INT (RND*20+1 ) 



520 IF P/L<10 THEN GOTO 680 



★■▲•530 
★■▲•540 

550 



IF S>1.1 THEN LET P=P+ INT (RND* 10+1 ) 
IF S<.9 THEN LET P=P-INT (RND* 10+1 ) 

P<30 THEN GOTO 700 



IF 



. MANY 



★■▲•560 IF RND>.01 THEN GOTO 5^0 
570 PRINT "RADIOACTIVE LEAK. . 
580 LET P=INT<P/2) 
590 IF CE<150 THEN GOTO 620 
600 PRINT "MARKET GLUT - PRICE DROPS 
610 LET CE=INT(CE/2) 



620 LET Y=Y+1 




630 IF Y<11 THEN GOTO 90 

640 PRINT "YOU SURVIVED YOUR TERM OF OFFICE 
650 STOP 

660 PRINT "THE PEOPLE REVOLTED" 
670 STOP 

680 PRINT "YOU'VE OVERWORKED EVERYONE" 
690 STOP 

7O0 PRINT "NOT ENOUGH PEOPLE LEFT" 
710 STOP 

The above listing will work on a ZX81. For 
other computers, make the changes below. 

•110 HOME 

▲110 PRINT CHRt(147) 
10,20,30.40,50, 90, 100, 500, 510, 530 , 540, 560 
change RND to RND(l) 

110,20,30,40,50,90, 100, 500, 510, 530 , 540, 560 
change RND to RND<0> 

See page 2 for m eaning of • ▲ ■ ★ 



ftl 




Adjusts satisfaction factor 
according to how much you 
spent on food. 

Asks how many mines you 
want to buy and checks you 
can afford them . 

Increases number of mines if 




1 Adjusts your money again. 

Checks on value of 
satisfaction factor. If this is 
very low, computer jumps to 
660 to end the game, 

If S is high then amount 
produced per mine is 
increased. ^^^^ 

If S low, amount produced is 
decreased. 

If there are less than 10 
people per mine, game is over, 

More people arrive if S is high. 
People leave if S is low. 

If there are less than 30 
people, game is over, 

Introduces small chance of 
half the people being killed. 

If the amount produced per 
mine is very high, ore price is 
halved. 



1 1 



— Year number increased by 1 
and if it is less than 1 1 f 
computer goes back to 90 for 
1 another go. 



Prints if the computer 
reaches this stage in the 
program on your 10th go. 




uzzle corner 



Can you make the 
computer ask if you would 
like another game and add 
the money you have ended 
up with to the new money 
supply for the next game? 



Space Rescue 



You must make an urgent trip across the spiral arm of the Galaxy to a 
developing planet which is in need of medical supplies. The trip involves 
such huge distances that for most of it you will be in a deep sleep, but before 
this you must program the ship for the journey. The computer will ask how 
much energy you want to allocate to the engines, life support system and 
shields and then put you to sleep. 

When you wake up, it will give you a report on what happened during the 
trip and, if all went well, you will be orbiting the planet. You must now 
allocate your remaining energy to the landing boosters and shields in order 
to make a good landing on the planet. 

If you accomplish the mission safely, you stand a good chance of being 
promoted to Space Admiral. Good luck! 



▲•10 CLS -. 

20 PRINT "SPACE RESCUE" 
30 PRINT 

40 PRINT "DO YOU WANT INSTRUCTIONS? " 
: . 50 INPUT I* 
★■▲•60 IF I*(1)="Y" THEN GOSUB lOOO 
★■▲•70 LET D=INT(RND*800+101) 
★■▲•80 LET E=INT(RND*400+401> 

90 LET T=INT<D/SQR(E/5>+.5> • • 

^lOO PRINT "THE PLANET IS ";D5" UNITS AWAY" 
\ HO PRINT "YOU HAVE ";E;" UNITS OF ENERGY " 
120 PRINT "AND A TIME LIMIT OF ";T;" DAYS" 
130 PRINT . * 

140 PRINT "ENERGY DISTRIBUTION:". 
150 PRINT "TO ENGINES?" 



"ENERGY DISTRIBUTION: " 
"TO ENGINES?" 



150 PRINT "TO ENGINES?" 
160 INPUT P 

170 PRINT "TO LIFE SUPPORT?" 
180 INPUT L 

190 PRINT "TO SHIELDS?" 
200 INPUT S 

210 IF P+L+S>E THEN GOTO 140 
220 LET X=E-P-L-S 
230 LET V=INT(SQR(P> > 
240 LET T1=INT<D/V> 



YOUR VELOCITY IS ";V 



A*250 CLS 
' 260 PRINT 



270 PRINT "YOU HAVE AN ETA OF ";T1;" DAYS" 
280 PRINT • 
★■▲•290 FOR 1=1 TO INT(RND*5+6> k 
★■▲•300 IF RND>.5 THEN GOTO 430 * ' * , 

★■▲•310 GOTO 320+INT<RND*4) *30 ■ ^^f^,^ 
!6 320 PRINT " ASTEROID STORM - SHIELDS DAMAGED 



1 V 



★■▲•330 LET 5=S-20-INT(RND*40+l>* 
• 340 SOTO 430 

■ . 350 PRINT " COMPUTER BREAKDOWN - DELAY IN REPAIRING" 
★■a«360 LET D=D+INT (RND*20+1> : " .'- 

370 GOTO 430 " S 

380 PRINT "ENGINE TROUBLE - MUST SLOW DOWN" 

390 LET V=V-- 5 • ■ 7 •"• . . 

. 400 GOTO 430 • 

410 PRINT "X-RAY DAMAGE - LIFE SUPPORT DAMAGED" 
420 LET L=L-20-INT(RND*40+l) ; 
★ ba»430 FOR J=i TO 50 .... 

- 440 NEXT J >- V %*. •■)■.■'. ' 

450 NEXT I ■ 
.460 LET T1=INT(D/V) ■ ; 



.460 LET T1=INT(D/V) 
▲•47C> CLS * " ' 

480 PRINT "ARRIVED IN ";Tl5" DAYS" - 
.490 IF S<0 THEN PRINT "SHIELDS DESTROYED" 
495 IF S<0 THEN PRINT "YOU WERE BLOWN UP" * 
500 IF L<=0 THEN PRINT "LIFE SUPPORT INACTIVE" 
505 IF L<=0 THEN PRINT "YOU'RE DEAD" 

510 IF V<=0 THEN PRINT "ENGINES ARE NON-FUNCTIONAL" 
. 520 IF T1>T THEN PRINT "YOU TOOK TOO LONG ABOUT IT" 
530 IF S<0 OR L<=0 OR V<=0 OR T1>T THEN STOP 
★■▲•540 LET G=INT<RND*10+5> . : . .* 

550 LET G*="HIGH" V 
. 560 IF G<12 THEN LET G*="MEDIUM" - 
570 IF G<8 THEN LET G*="LOW" . ' 
(▲•580 LET A=INT(RND*10+5) .-. . ' . 

590 LET A*="HIGH" , / * ... . / ♦ 

600 IF A< 12 THEN LET A*=" MEDIUM" 

610 IF A<8 THEN LET A*="LOW" / ' 

620 PRINT . " \ ' 

630 PRINT " YOU ARE NOW ORBITING THE PLANET" - : ■ 
640 PRINT "SURPLUS ENERGY="jX . 
: 650 PRINT "GRAVITY IS "56* ' v. . 

660 PRINT "ATMOSPHERE IS ";A* 

670 PRINT . . *■ - 

6S0 PRINT "HOW MUCH ENERGY TO BOOSTERS?" # 
690 INPUT B • - ' 

700 PRINT "HOW MUCH ENERGY TO HEAT SHIELDS?" 
710 INPUT S •■■! " ';• ' * • 

720 IF B+S>X THEN GOTO 680 



★■▲•580 

590 



▲$730 CLS ; • 

.740 IF B>=G*10 THEN GOTO 770 



Program continued on next page. 



it 



,1 ... 



»1 ■;• 



Space Rescue continued 



■ k t 



750 PRINT "YOU MADE A NEW CRATER " 
, 760 GOTO 840 . . * ' .. • ; 

'770 IF S>-A*10 THEN GOTO BOO 
780 PR I NT " YOU MADE A WONDERFUL SHOOT I NG STAR " 
790 GOTO 840 

800 PRINT "YOU LANDED SUCCESSFULLY - WELL DONE" 

810 IF X-S-B>25 THEN GOTO 840 

820 PRINT "PITY YOU DON'T HAVE ENOUGH" 

830 PRINT "ENERGY TO OPEN THE DOOR" 

840 STOP 

1000 PRINT 

1010 PRINT "YOU ARE ABOUT TO EMBARK ON A" 

■ 

1020 PRINT "MISSION TO A DISTANT PLANET" 
1030 PRINT "IN URGENT NEED OF MEDICAL" 
1040 PRINT "SUPPLIES- YOU MUST FIRST READY " 
1050 PRINT "YOUR SHIP FOR THE TRIP BY" 
1060 PRINT "ALLOCATING SOME OF THE SHIP'S" 
-1070 PRINT "ENERGY TO THE ENGINES, SHIELDS" 
1080 PRINT "AND LIFE-SUPPORT- YOU ARE" 
1090 PRINT "THEN PUT TO SLEEP FOR THE MAIN" 
1100 PRINT "PART OF THE TRIP, AFTER WHICH" 
1110 PRINT " YOU WILL GET A REPORT OF THE" 
1120 PRINT "EVENTS ON THE WAY. YOU MUST" 

1130 PRINT "THEN LAND ON THE PLANET ". 

1140 PRINT "PRESS ANY KEY" 
,•1150 IF I NKE Y*= " " THEN GOTO 1150 



1070 PRINT 
1080 PRINT 
1090 PRINT 
1100 PRINT 
1110 PRINT 



1140 PRINT "PRESS 
★■a»1150 IF I NKE Y*= " " 
A«U60 CLS 
1170 RETURN 



The above listing will work on a ZX8 1 . For 
other computers, make the changes below. 



■all RND to RND(O) 
★A»all RND to RND ( 1 ) 

•10,250,470,730,1160 HOME 
A10, 250, 470,730, 1160 PRINT CHR*<147) 
★■A»60 IF LEFT* (I*, 1)="Y" THEN GOSUB lOOO 
★■A»310 ON INT(RND*4+1) GOTO 320,350,380,410 
- *iA»430 FOR J=l TO 500 .. ? 

★430 FOR J=l TO 1O0O ' .. 

• *1150 I=GET .' * ■ . " ' 

' #1150 GET I*. . \ * • ' 
■A 11 50 GET I* : IF*I*="" THEN GOTO 1150 



28. 
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Addingtothegame 

This game is really made up of two parts. In the first part you set off on your 
space journey with the aim of orbiting the planet and in the second you 
attempt to land on the planet. You could perhaps try adding a third part in 





I 

■ 



Touchdown 

; 

This game is different from the others in this book because it uses graphics. 
As the computers vary so much in the way their graphics work, there is a 
! separate program for each one. Read the instructions on this page for how 

to play the game and then look through the pages that follow for the version 
for your computer. 

How to play Touchdown 



Ace space pilot, Captain Flash, is sitting next to you as you take the final 
part of your Advanced Spacecraft Handling Test (Part III). Your 
lightweight, two-man landing craft is rapidly approaching the Moon's 
surface. Your velocity must be almost zero as you touch down. Deftly you 
control the thrust, pressing A to increase it and D to decrease it * , watching 
your progress on the screen all the time. If you use too much thrust you will 
begin to go back up again. Too little and you will make a new crater on the 
Moon. Can you impress Captain Flash with your skill ? 

*For VIC, use the cursor down key to increase thrust and the cursor right 
key to decrease it. 



Touchdown: TRS-80 version 



20 
30 
31 
33 
34 



CLS 

CLEAR 200 
B*-STRING* (25, 131) 
M1*=CHR*( 194) +STRING* (2, 17e> 
M2*=" " +STR I NG* (4,191) 
35 M3*=CHR* (131) +CHR* ( 1 35 ) +STRI NG* 

(2, 131 ) +CHR4 (139) +CHR* < 131) 
GOSUB 250 
GOSUB 300 



40 

50 
60 
70 
80 
90 



30 



C= 1 : GOSUB 390 
A= 1 : B=F s GOSUB 460 
A=2 : B=ABS ( V ) s GOSUB 460 
A=3 : B=H : GOSUB 460 
10O A=4: B=T: GOSUB 460 
110 GOSUB 530 

120 Vi=V-T/20+G s F=F-T/10 
130 H1=H- (V+Vl) /lO 
140 C=0: GOSUB 390 

IF H1<0 THEN 200 
H=H1 : V=V1 
IF H<=100 THEN 60 
GOSUB 590 
GOTO 220 
2O0 H=0:C=1: GOSUB 390 
210 GOSUB 660 
220 END 

250 H=lO0:F=lOO:T=O 

260 V=1NT(RND(0) *10+6) 

270 G=INT(RND(0> *40+41 ) /lOO 

280 RETURN 

300 FOR X=BO TO 127 

320 SET (X, 47-INT (RND(O) *5) ) 

330 NEXT 

340 PRINT "GRAVITY=";G 
350 PRINT 3192, "FUEL: " 



150 
160 
170 
180 
190 



360 
365 
370 
390 
4O0 

410 



PRINT 3384, "VEL: " 
PRINT 3576, "HEIGHT: " 
PRINT 3768, "THRUST: " 
RETURN 

Y=8 18-64* INT (H/8) 

PRINT 3Y,; : IF C= 1 THEN PRINT 
ELSE PRINT 
3Y+64, ; : 
M2*; ELSE 



CHR* ( 196) ; 
IF C=l THEN 
PRINT CHR* 



420 



3Y+128,; : 
M3*s ELSE 



IF C=l THEN 
PRINT CHR* 



440 
460 

470 
480 
510 
530 
540 



jj 



O 



560 
570 
590 
600 
610 
620 
630 
640 
650 
660 

670 

680 



Ml*; 

PRINT 
PRINT 

(198) ; 

PRINT 

PRINT 

(198) 

RETURN 

Y=(A*3+1 ) *64 

PRINT 3Y,CHR* (217) ; 

PRINT 3Y, LEFT* (B*, B/4) ; 

RETURN 

I*=INKEY* 

IF I*="A" THEN T=T+4 : IF 

TMOO THEN T=100 

IF I*="D" THEN T=T-4 : IF 

T<0 THEN T=0 

IF T>F THEN T=F 

RETURN 

CLS 

FOR 1=1 TO 20 

PRINT 3INT(RND(0)*1024) , 

NEXT 

PRINT 3470,"L0ST IN SPACE!!" 
RETURN 

CLS 

PRINT "LANDED AT VEL "; 
INT( (V+Vl) *5) /lO 

IF (V+Vl X 8 THEN PRINT "SAFELY" 

ELSE PRINT " ALL DEAD" 
RETURN 






Touchdown : VIC 20 version 

20 PRINT CHR* ( 147) CHR* (5> ; 

25 POKE 36879,8 

30 DEF FNR(X)=INT(RND(1)*X^ 

40 GOBUB 250 

50 GOSUB 3O0 

60 C~ 1 : GOSUB 390 

70 A= 1 : B=F : GOSUB 460 

30 A=2: B=ABS (V) : GOSUB 460 

90 A=3: B=H: GOSUB 460 

100 A=4; B=T: GOSUB 460 

1 1 GOSUB 530 

120 Vl=V-T/20+B : F=F-T/10 

130 H1=H-\V+V1 ) /lO 

140 C=0: GOSUB 390 

150 IF HKO THEN 200 

160 H=H1;V=V1 

170 IF H<=100 THEN 60 

180 GOSUB 590 

190 GOTO 220 

200 H=0: C= 1 : GOSUB 390 

210 GOSUB 660 



220 END 



250 H=100sF=100:T=0 
260 V=5+FNR<10) 
270 G=(FNR(40)+40)/100 
280 RETURN 

300 FOR X=8178 TO 8185 
320 POKE X, 98+2»FNR (3) 
330 NEXT 

340 PRINT "GRAVITY^" ; G 
350 PRINT "ggFUEL:" 
355 PRINT "Maauri .«• 

360 PRINT 
365 PRINT 
370 RETURN 



390 Y =8137— 22* INT (H/5) 

400 IF C=0 THEN 425 

405 POKE Y, 108 : POKE Y+1,123 

410 POKE Y+22, 160 : POKE Y+23, 160 

415 POKE Y+44,75 : POKE Y+45, 74 

420 GOTO 440 

425 FOR 2=0 TO 44 STEP 22 

430 POKE Y+Z,32 : POKE Y+Z+1,32 

435 NEXT 

440 RETURN 

460 FOR X=0 TO 9 

470 Y=A*88+X+7724 

480 IF X<B/10 THEN POKE Y,102 : 
GOTO 500 

485 IF X<B/10+.5 THEN POKE Y, 92 : 

GOTO SOO 
490 POKE Y,32 
500 NEXT 
510 RETURN 
530 BET I* 

540 IF I *= "El" THEN T=T+4 s IF T>100 

THEN T=100 
550 IF I*="H" THEN T=T-4 : IF T<0 

THEN T=0 
560 IF T>F THEN T=F 
570 RETURN 
590 PRINT CHR* (147) 
600 FOR 1=1 TO 20 
610 POKE 7679+FNR (506) , 42 
620 NEXT 

630 PRINT "LOST IN SPACE!'" 
640 RETURN 

650 PRINT CHR* ( 147) "LANDED" 
660 PRINT "AT VEL " ; INT ( ( V+Vl ) *5> / 10 
670 IF (V+V1X8 THEN PRINT "SAFELY" 

: RETURN 
6BO PRINT "ALL DEAD" : RETURN 



490 

SOO 
510 
530 

540 
550 

560 
570 
590 
600 
610 
620 
630 
640 
650 
660 
670 

6BO 



is cursor down key 



\J\ is cursor right key 




I UUbllUUVVII, c- /\ w 

20 CLS 

30 LET Bt="t 666666666666666666663 
40 GDSUB 250 
50 GOSUB 300 
60 LET C=l 
65 GOSUB 390 
70 LET A=l 
75 LET B=E 
77 GOSUB 460 L 
80 LET A=2 " 
85 LET B=ABS<V) 
S7 GOSUB 460 
90 LET A=3 
95 LET B=H 
97 GOSUB 460 
100 LET A=4 



1 version 



125 
130 
140 
145 
ISO 
160 
165 
170 
ISO 
190 
200 
205 
207 
210 




250 
252 
255 
260 
270 
280 
300 
340 
350 
355 
360 
365 
370 



4 OO 
405 
410 
415 
420 
425 
4 30 
435 
4 40 

460 
470 
,480 



LET B=T 
GOSUB 460 
GOSUB 530 
LET Vl=V-T/20+G 
LET F=F-T/10 
LET H1=H- (V+Vl ) /IO 
LET C=0 
GOSUB 390 

IF HKO THEN GOTO 200 
LET H=H1 
LET V=V1 

IF H<=100 THEN GOTO 60 

GOSUB 590 

GOTO 220 

LET H=0 

LET C=l 

GOSUB 390 

GOSUB 660 

STOP 

LET H= 1 OO 
LET F=100 
LET T=0 

LET V=5+INT (RND*10+1 ) 
LET G=INT (RND*40+40) /IOO 
RETURN 

PRINT AT 21,20; "CSDADS ADAS 1" 
PRINT AT 0,0; "GRAV ITY=" J G 
PRINT AT 3,0; "FUEL: " 
PRINT AT 7,0; " VEL: " 
PRINT AT 1 1 , O; "HEIGHT: " 
PRINT AT 15, O; "THRUST: " 
RETURN 

LET Y= ( IOO-H) /6+1 
IF C=0 THEN GOTO 425 
PRINT AT Y,24;"C341" 
PRINT AT Y+ 1,23; "CD Wl" 
PRINT AT Y+2,23; "CTGGYl" 

GOTO 440 
PRINT AT Y,24;" 
PRINT AT Y+l , 23; " 



510 
530 
540 



555 
560 
570 
590 
600 
610 

6 20 
630 
640 
650 
66O 

670 



680 



RETURN 
LET I*=INKEY* 
IF I*="A" THEN LET T=T+4 
IF TMOO THEN LET T=100 
IF I*="D" THEN LET T=T-4 
IF T<0 THEN LET T=0 
IF T>F THEN LET T=F 
RETURN 
CLS 

FOR 1=1 TO 20 

PRINT AT INT<RND*22), 

INT(RND*32) ; "*" 
NEXT I 

PRINT AT lO, lO; "LOST IN SPACE " 

RETURN 

CLS 

PRINT AT 20, O; "LANDED AT VEL " 
I INT( <V+V1 ) *5) /lO 

IF (V+V1X8 THEN PRINT "SAFELY" 
IF <V+V1)>=8 THEN PRINT 
"ALL DEAD" 
RETURN 



PRINT AT Y+l, 23; " 
PRINT AT Y+2,23; " 

RETURN SPACES) 
LET Y=A*4 t 

PRINT AT Y,0;" * 

PRINT AT Y,0;B*( TO B/5) 



Special notefor 
ZX81 users 

Graphic characters are shown 
in the listing using the 
following convention- A ' I * 
character means press the 
GRAPHICS key, and then type 
the following letters/numbers 
SHIFTED until * 1* ie 
reached, when you type the 
GRAPHICS key again, and go 
back to normal - 






90 



O 



Touchdown: ZX Spectrum version 

CLS 

DEF FNr (x ) =INT (RND*x+l ) 
GOSUB 250 
GOSUB 300 
LET c=0: BOSUB 390 
LET a=l: LET b=f : LET c=2*(f< 
GOSUB 460 

LET a-2: LET b=ABS v: 
LET c=4*<v<0) 
GOSUB 460 

LET a=3: LET b=h: LET c=2* (h< 
GOSUB 460 
LET a=4: LET b=t: LET c=0 
GOSUB 460 
GOSUB 530 

LET vl=v-t/20+g: LET f=f-t/l 
LET hl=h- (v+vl > /lO 
LET r= 1 : GOSUB 390 
IF hl<0 THEN GOTO 200 
LET h=hls LET v=vl 
IF h<=100 THEN GOTO 60 
GOSUB 590 
190 60 TO 220 

200 LET h=0: LET c =0 : GOSUB 390 
210 GOSUB 650 
220 STOP 

250 LET h=100: LET f =100» LET t 
260 LET v=5+FNr<10) 
270 LET G= (FNr ( 40 > +40 ) / 1 00 
280 RETURN 
300 PLOT 180,8 
310 FOR x=l TO 15 
320 DRAW 5, FNr (3) -2 
330 NEXT x 

340 PRINT "Gravity=";g 

350 PR INT ' * "Fuel : " * * * * " Vel : " 

360 PRINT ' * r "Height: ? " "Thrust 

370 RETURN 

39 O INVERSE c 

400 LET y=h*1.3+10 



5> 



100 
105 
110 
120 
130 
140 
150 
160 
170 
ISO 



=0 



410 
420 
430 
440 
460 
470 
480 
490 
50O 
510 
530 
540 

550 

560 
570 
590 
600 
610 
620 
630 
640 
650 

660 
670 
680 



IF 

IF 
IF 
IF 

IF 



PLOT 200, y : DRAW 34, O 
DRAW -4,20: DRAW -13, lO 
DRAW -13, -lO: DRAW -4,-20 
RETURN 

LET y=172-a*32 
INK c 
PLOT 0,y 
DRAW b,0 

DRAW I NVERSE 1 , 1 OO-b , O 
RETURN 

i*=INKEY* 
i*="a" THEN LET t=t+4 : 

t>100 THEN LET t=100 
i*="d" THEN LET t=t-4 s 

t<0 THEN LET t=0 
t>f THEN LET t=f 
RETURN 
CLS 

FOR i=l TO 20 

PRINT AT FNr <21) , FNr (31) ; "*" 
NEXT i 

PRINT "Lost in space!!!" 
RETURN 

PRINT AT 0,0; "Landed at 
INT( (v+vl>*5) /lO* 
IF (v+vlXB THEN GOTO 680 
PRINT "All dead": RETURN 
PRINT "Sa+ely": RETURN 






Touchdown: BBC version 



2C MODE 5 

30 *FX 12, 1 

40 PROCSETVAR 

50 PROCDISPLAY 

60 PROCMODULE (H, 3) 

70 PROCBAR ( I, F, 3+2* <F<25) ) 

OO PROCBAR (2, ABSV, 3+ (V<0) ) 

90 PROCBAR < 3, H, 3+2* (H<25) ) 

IOO PROCBAR ( 4, T , 3) 

1 1 O FROC THRUST 

1 20 Vl=V-T/20+G : F=F-T/10 

130 H1=H-(V+V1) /10 

1 40 PROCMDDULE ( H , O > 

150 IF HKO THEN 200 

160 H=H1:V=V1 

170 IF H<=100 THEN 60 

ISO PRGCLOST 

190 GOTO 220 

200 PROCMODULE (0,2) 

210 PROCLANDED 

220 *FX 12 

230 END 

240 DEF PROCSETVAR 

250 H=100:F=100: T=0 

260 V=5+RNDUO) 

270 6= (RND < 40 ) +40 > / 1 OO 

2SO ENDPROC 

2 90 DEF PROCDISPLAY 

300 MOVE 800,30 

310 FOR X=800 TO 1280 STEP 

320 DRAW X , 1 O+RND ( 40 > 

330 NEXT 

340' PRINT "GRAVITY 
350 PRINT *" * "FUEL 
360 PRINT *" ? ' "HEIGHT 
370 ENDPROC 

380 DEF PROCMODULE (H,C) 
390 6C0L 0,C 
400 Y=H*8.5+150 
410 MOVE 1040,Y : PLOT 1 
420 PLOT 1 , -8, -60 : PLOT 1 
430 PLOT 1,-8, 60 : PLOT 1 
440 ENDPROC 
450 DEF PROCBAR ( N, V,C) 
460 Y= 1O0O-1 92 *N 
470 GCOL 0,C 

430 MOVE 0,Y : MOVE f Y-16 



490 

500 
510 
520 
53 O 
540 

550 
560 



580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 

700 



PLOT 85,V*4,Y : PLOT 85,V*4, 
PLOT 87, 400, Y : PLOT 87,400, 
ENDPROC 

DEF PROCTHRUST 
*FX 15, 1 

IF INKEY(-194> THEN T=T+4 : 

IF T>100 THEN T=100 

IF INKEY(-179> THEN T=T~4 : 

IF T<0 THEN T=0 

IF T>F THEN T=F 

ENDPROC 

DEF PROCLOST 



y-16 

Y-16 



FOR 1=1 TO 20 

VDU 31 ,RND( 19) , RND (31 ) ,42 
NEXT 

PRINT TAB (4, 16) "LOST IN SPP 
ENDPROC 

DEF PROCLANDED 

VDU 28,0,31, 11,0,12 

PRINT ? "LANDED" 

PRINT T "AT VEL " ; INT ( (V+Vl > 

IF (V+V1X8 THEN PRINT ' "Sf 

ELSE PRINT * "ALL DEAD" 

ENDPROC 



I ■ ■■ 



*5) /IO 



16 





■I' 





Touchdown: Apple version 



15 HOME 
20 HGR 

30 DEF FNR(X)=INT(RND(1>*X+1> 

40 BOSUB 250 

SO BOSUB 300 

60 C=3:G0SUB 390 

70 A=l : B=Fs GOSUB 460 

BO A=2: B=AB5 (V) : GOSUB 460 

90 A=3: B=H: GOSUF< 460 

100 A=4:B=T: GOSUB 460 

110 GOSUB 530 

120 Vl=V-T/20+G : F=F-T/10 
130 H1=H-<V+V1 ) /lO 
140 C=0; GOSUB 390 
150 IF HKO THEN 200 
160 H=H1:V=V1 
170 IF H<=100 THEN 60 
ISO GOSUB 590 
190 GOTO 220 
200 H=0:C=3: GOSUB 390 
210 GOSUB 660 
END 

H=100:F=100;T=0 
V=5+FNR( lO) 
G= ( FNR < 40 ) +40 ) / 1 OO 
RETURN 



220 
250 
260 
270 
280 



300 HCOLOR=3 
305 HPLOT 



O, 155 



310 
320 
330 

337 
340 
350 

360 
370 
390 
4O0 
410 
420 

430 
435 
437 
440 
460 
470 
480 
490 
500 
510 
530 

540 

550 



TAB (34) ; 
"FUEL: " 



G=" ;G 



FOR X=0 TO 279 STEP 5 
HPLOT TO X, 159-FNR ( lO) 

NEXT 

FOR 1=1 TO 30 sHPLOT FNR(279), 

FNR ( 150 ) 

NEXT 

VTAB 21 : PRINT 
VTAB 21 s PRINT 
PRINT " VEL : " 
PRINT "HEIGHT:" 
RETURN 
HCOLOR=C 
Y= ( lOO-H) *1.3 
HFLOT 140,Y TO 120,Y+10 
TO 120,Y+20 : 
TO 160,Y+20 
TO 160, Y+IO 
155,Y+20 TO 
125,Y+20 TO 



PRINT "THRUST i " ; 



HPLOT 
HPLOT 
HPLOT 
HPLOT 
HPLOT 

RETURN 
VTAB (20+A) 



: HPLOT TO 140,Y 
160, Y+25 



120, Y+25 



HTAB 8 



INVERSE 

FRINT SPC (B/1) ; 
NORMAL 

PRINT SPC<26-B/4); 
RETURN 

1*="" : IF PEEK (-16384) >127 
THEN GET I* 

IF I*="A" THEN T=T+4 : 
IF T>100 THEN T=100 
IF I4="D" THEN T=T-4 : 
IF T<0 THEN T=0 




590 HOME : VTAB 23 
600 PRINT "LOST IN SPACE! ! 
640 RETURN 
660 HOME : VTAB 22 
670 PRINT "LANDED AT VEL 

INT ( (V+Vl ) *5) /lO 
680 IF (V+V1X8 THEN 700 
690 PRINT "ALL DEAD" : Rf 




iTURN 

700 PRINT "SAFELY" : RETURN 



Adding to the programs 



Here are some ideas for additions 
you can make to the programs in 
this book or to your own programs. 
In most cases you won't be able to 
add these to a ZX81 with only 1 K as 
the games themselves fill almost all 
its memory space, but you should 
find there is plenty of room on the 
other computers. 

Remember you will either have to 
restrict your additions to the spare 
line numbers in a program or 
renumber the program. If you 
decide to renumber, take care you 
change all the GOTO and GOSUB 
lines too. 

■ 

Getting the computer to tell you 
how to play 

You can add a 
section to any 
program to make 
the computer print 
instructions telling 
you what to do. The 
easiest way to do 

this is to add some lines, such as those 
below, at the beginning of the 
program and then put a sub-routine at 
the end. 



10 PRINT "TITLE OF GAME" 

11 PRINT "DO YOU WANT TO 

12 PRINT "KNOW HOW TO PLAV?" 
15 INPUT I* 

SZX17 IF I * ( 1 ) = " Y " THEN GOSUB 1 OOO 

U7 IF LEFT* < I*, 1 ) =" Y" THEN GOSUB 1COO 



Making the computer 
stop and wait for you 




If your instructions are very long, you 
may want to insert this sub-routine 
which stops the program running at a 
particular point until you press a key. 
This way you can stop the instructions 
scrolling off the top of the screen 
before you have read them. Put a 
GOSUB line at the place you want the 
program to stop and then put this sub- 
routine at the end. 

lOOO PRINT "PRESS A KEY TO CONTINUE 
SZXIOIO IF INKEY*=" " THEN GOTO 1010 
★1010 I*=GET* 




#1010 GET I* 
A1010 GET It 
1020 PRINT 
1030 RETURN 



IF I* = 



THEN ROTO 1010 



Making the computer "talk" to 
you 




H 



36 



main program goes here 

1000 PRINT "WHAT YOU HAVE TO" 

1010 PRINT "DO IS " 

1999 RETURN 

You can add as many print statements 
as you like for the instructions, just 
remember to put a number and the s 
word PRINT at the beginning of each * 
one. Restrict the length of the part 
inside the quotation marks to the 
number of characters your computer 
can print on one line. Don't forget to 
put a RETURN line at the end or the 
program won't work. 



You can make the computer ask you 
questions and react to your answers. 
For instance, here is an addition which 
will make the computer refuse to play 
with you unless your name begins with J, 

1 PRINT "WHAT IS YOUR NAME?" 

2 INPUT I* 

3 IF I*(1K>"J" THEN GOTO 10OO 

3 IF LEFT* (I*, 1 ) <>" J " THEN GOTO 1000 

4 PRINT "OK— YOU CAN PLAY." 

5 PRINT "ARE YOU READY?" 

6 INPUT J* 
IF J*<1X>"Y" THEN GOTO 5 

7 IF LEFT* ( J* f 1 ) < >"Y" THEN GOTO 5 

main program here 



1000 PRINT 
1010 PRINT 
1020 PRINT 
1030 PRINT 



II 



"SORRY THIS 
ONLY FOR PEOPLE 
WHOSE NAMES BEGIN 
"WITH J" 



1 1 



Here is another one where the 
computer dares you to be brave 
enough to play. 

lO PRINT "VERY SCARE Y SAME" 

12 PRINT "ARE YOU BRAVE ENOUGH" 

14 PRINT "TO TACKLE THE GREEN" 

15 PRINT "HAIRY MONSTER?" 

16 INPUT I* 

S ZX17 IF I*<1)="Y" THEN GOTO 20 

*BAOl 7 IF LEFT* < I*, 1 ) ="Y" THEN GOTO 20 

18 PRINT "COWARD" 

19 STOP 



cases you can add a single line to your 
program at the place you want the 
sound. In others, you need several 
lines and it is best to put these in as a 
sub-routine. 

As an example, here is the sound of 
a shot for the BBC. You can experiment 
with where to put it in the program, but 
you must give it a line number to make 
it work: 

SOUND O, -15, 5, 10 

At the back of the VIC manual you 
will find some useful sub- routines for 
sounds such as "laser beam", 
"explosion" and "red alert". Put a 
GOSUB line where you want the sound 
to appear, number the sub-routine and 
add a RETURN at the end of it. 



You could combine this with the 
instruction sub- routine by taking lines 
1 1 to 17 from the instructions section 
on this page and putting them at lines 
20 to 26 of this program. You can then 
start the main program at line 30 and 
add the instruction sub-routine at the 
end. 



Would you like another go? 

Instead of typing RUN each time you 
play a game, you can make the 
computer ask you if you'd like another 
go. Put these lines at the end of the 
program, just before the last STOP 
statement. 



lOOO PRINT "DO YOU WANT ANOTHER 

lOlO INPUT I* 

SZX1020 IF I*(1)="Y" THEN RUN 

*BA»1020 IF LEFT* (14,1) ="Y" THEN RUN 

1030 PRINT "OK THEN - BYE" 

1040 STOP 




Change line 
numbers according 
to your program. 



Adding sound effects 



The BBC, VIC 20, ZX Spectrum and 
some Apples are able to produce 
sounds and you can add lines to your 
programs to make them do so at 
appropriate places. You could add an 
explosion for instance, or a little tune 
which plays if you win. All the 
computers need different instructions 
to make sounds though, so you will 
have to look at your manual. In some 




Special note for BBC and a*V, 
Spectrum users 

If you have a BBC or a ZX Spectrum 
you may find that some of the games 
in this book run too fast for you. You 
will find a box next to these games 
containing instructions for 
changing the speed. Remember, to 
slow the game up you always need 
to use a higher number. Later 
models of the BBC may run up to 
twice as fast as the earlier models, 
and this could make the games 
appear impossible on the first run. 
Be prepared to make big changes 
to the speed number to correct this. 
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Writing your own programs 

As you work through the games in 
the book, you will probably find 
yourself making more and more 
changes to them and eventually 
wanting to write new games of your 
own. On these two pages you will 
find some hints on how to set about 
doing this. 

Before you start, it is a good idea to 
stop and think about what your 
computer can and cannot do. 




It can ask you for information 




It can store information 




* It can select numbers at random by 
using RND. 




*It can do calculations. 



*It cannot do anything unless you tell it 
to. 



*It can make decisions by comparing 
items of information in various ways. 





* It can tell you the results of its 
calculations and decisions and also 
what is stored in its memory. 



* Provided you use its language 
correctly, it can do only exactly what 
you tell it, even if it is silly. 

Remember, when you are trying to 
work out a game, not to include 
anything which your computer won't 
be able to do. 



Planning a game 

■ 

- 

Before you can tell the computer how 
to play your game, you must know 
exactly how to play it and what the 
rules are yourself. The computer will 
need a series of simple logical 
instructions, so work out your game in 
your head or on paper first and then 
break it down into simple steps. 

Next write a plan (in English - don't 
try to use BASIC yet) of all the stages of 
the game in order. 

Here is a plan for a simple shooting 
game, such as firing cannon balls at a 
pirate ship or shooting laser beams at 
an alien invader, to give you an idea. 





PLAN 

Print title and 
instructions 

2) CHOOSE A TARGET 
FOR THIS GAtAE 

Sj'BffQM A LOOP TO 
GIVE THE PLAYER 
N 

4-)CtET A SHOT FROM 
THE PLAYER 

5) CHECK IF SHOT WAS 

ON TARGET 

6) PRINT MESSAGE 
DEPENDING ON 
ACCURACY OF SHOT 

7) <}0 SACK FOR 
ANOTUtR qo IF SHOT 

WAS UNSUCCESSFUL > 



Writing the program 

The next stage is to convert your plan 
into BASIC. Each step in your plan may 
need several lines in BASIC. Don't 
forget to leave gaps when numbering 
your program lines so you can go back 
and add extra ones if you need to. 

Do a first draft of the program on 
paper first and then start testing on the 
computer. Your computer will spot 
errors much more quickly than you 
will see them yourself and may give 
you a clue as to what is wrong. 
Remember that debugging programs 
is a long, tedious process even for 
expert programmers, so don't expect 
to get yours right first time. 




Once you have got the core of the 
program working, you can add to it. 
Scoring, extra comments, more 
targets etc. can all be incorporated 
later. You could add sections from the 
programs in this book to your games. 

Don't expect to be able to write 
exciting and original games straight 
away. Keep your ideas very simple 
and be prepared to adapt them as you 
go along. You may find you have 
included something in your game 
which is easy for humans to do but 
very difficult for a computer. As you 
get more experienced you will begin 
to know instinctively what your 
computer can do and find it easier to 
write programs for it. 



Summary of BASIC 



This section lists some common BASIC words and describes what they 
make the computer do and how they are used. Most of them have been used 
in the programs in this book, so you can check back through the book to see 
how they work in a game. Not all the words can be used on all the 
computers mentioned in this book. The conversion chart on page 46 shows 
what you can use instead. 



LET tells the computer to label a section of its 
memory and put a particular value in it e.g. LET 
A= 6 means label a section of memory "A" and put 
the value 6 in it. "A" is called a "variable" and putting 
something in it is called "assigning a value to a 
variable". 

Some variable labels are followed by a dollar 
sign e.g. A$. This means they are for "strings", 
which can contain any number of characters, 
including letters, numbers and symbols. 





PRINT tells the computer to display things on the 
screen and you can use it in several ways: 

A message enclosed in quotation marks with 
PRINT in front of it will be displayed on the screen 
exactly as you typed it. The section inside quotes 
does not have to be in BASIC, it can be anything you 
like. 

PRINT followed by a variable label e.g. PRINT A 
or PRINT A$ tells the computer to display the 
contents of that variable on the screen. 

PRINT can also do calculations and then display 
the results e.g. PRINT 6*4 will make the computer 
display 24. 

You can use PRINT by itself to leave an empty 
line. 




RND tells the computer to choose a number at 
random. Different computers use different forms of 
RND and you can see what these are in the 
conversion chart on page 46. On Sinclair computers 

D by itself produces a number between and 
.99999999. You can vary the limits of the number it 
chooses by multiplying RND and adding to it. E.g. 
RND* 20 produces a number between and 
19.99999999, while RND*20+ 1 produces a number 
between 1 and 20.99999999. 
See INT for how to produce only whole numbers. 
See CHR$ for how to produce letters and other 
keyboard characters at random. 



INT is short for integer, which means whole 
number. For positive numbers, it tells the computer 
to ignore everything to the right of the decimal 
point. E.g. INT( 20.999) is 20. For negative numbers, 
it ignores everything to the right of the decimal 
point and "increases" the number to the left of it by 
onee.g.INT(-3.6) is -4. 

INT is often used with RND, like this: 
INT(RND* 20+ 1) which tells the computer you want 
it to choose a whole number between 1 and 20. 



CHR$ converts numbers into letters. Apart from the 
ZX8 1 , all the computers in this book use the 
ASCII* set of keyboard characters in which each 
character corresponds to a certain number. E.g. 
letter A has the code number 65 and PRINT 
CHR$(65) will display an A on the screen. 

You can use CHR$ with INT and RND to make the 
computer select random letters, like this: 

CHR$(INT(RND*26+65)) 
This line will produce random letters on aZX 
Spectrum (see conversion chart for other 
computers). 





FOR is used to start a "loop" which will make the 
computer repeat part of a program a certain 
number of times. It must be followed by a variable 
(such as G to stand for the number of goes allowed 
in a game), and the variable must be given start and 
end values (such as 1 TO 10.) 

The end of the loop is marked by a NEXT line 
(NEXT G in this example) which increases the value 
of the variable by 1 each time and then sends the 
computer back to the FOR line again. When the 
variable reaches its end value, the computer 
ignores the NEXT line and carries on to the line ' 
which follows it. Every FOR must have a NEXT or 
you will get a bug. 




INPUT labels a space in the computer's memory, 
prints a question mark and then waits for you to 
type something which it can put in this memory 
space. It will not carry on with the rest of the 
program until you press RETURN, ENTER or 
NEWLINE. 

You can use number or string variables with 
INPUT, but if you use a number variable the 
computer will not accept letters from you. 




American Standard Code for Information Interchange (see page 45) 



INKE Y$ checks the keyboard to see if a key is 
being pressed and if so which one. It does not wait 
for you to press a key like INPUT does. It is usually 
used in a loop which makes the computer go round 
checking the keyboard lots of times. This is 
because computers work so quickly, you wouldn't 
have a chance of pressing a key in the time it takes 
the computer to do one check. 

If you haven't pressed a key before the loop 
finishes, the computer carries on with a string 
containing nothing (called a "null" string). 
NB Apple and VIC do not use INKEY$. 

GET is used instead of INKE Y$ on VIC and Pet 
computers. 



GOTO makes the computer jump up or down the 
program ignoring the lines in between. You must 
put the number of the line you want it to jump to 
after the GOTO instruction. 



GOSUB tells the computer to leave the main 
program and go to a sub -routine. GOSUB must be 
folowed by the number of the first line of the sub- 
routine. At the end of the sub-routine you must have 
a RETURN line. This sends the computer back to 
the main program to the line immediately following 
the GOSUB line. A GOSUB without a RETURN in a 
program will give a bug. 



IF . . . THEN tells the computer to decide if an 
expression is true or false, and do different things 
depending on the answer. It is used with the 
following signs, and also with AND or OR: 

- the same as 

<less than 

>greater than 
< =less than or the same as 
> = greater than or the same as 
Onot the same as 

If the computer decides an expression is true, it 
carries on to do the instruction which follows • 
THEN. If it decides it is false, it ignores the rest of 
that line and goes on to the next one. 



CLS is used to clear everything off the screen 
without removing or changing anything in the 
memory. It is useful for removing the listing from 
the screen at the beginning of a RUN or in games 
when you want the player to react to something 
seen for a limited amount of time. (NB Apple and 
VIC do not use CLS - see conversion chart). 



HOME is used by Apple computers instead of CLS 
to clear the screen. 



ABS ignores plus and minus signs in front of 
numbers and takes their "absolute" values. E.g. 
AES( - 10) is 10 and ABS( + 10) is also 10. 



VAL takes the numeric value of numbers written as 
strings. In effect, it tells the computer to ignore the 
dollar sign and treat the string as an ordinary 
number variable. E.g. if I$="60"then VAL(I$) is the 
number 60. 



ASC converts a character into its ASCII code 
number e.g. ASC("3") gives 51. The expression in 
brackets must be a string e.g. ASC( A$) or 
ASC("20"). 

NB ZX81 and ZX Spectrum do not use ASC, though 
the Spectrum does use the ASCII code. 



CODE is used by ZX8 1 and Spectrum in place of 
ASC. Like ASC it must always be followed by a 
string. Remember that the ZX81 uses different code 
numbers from the other computers. 



TAB moves the cursor across the screen to a 
specified column number. It is usually used with 
PRINT to display something in the middle of the 
screen. The number of spaces you want the cur so r 
moved is put in brackets after TAB. The maximum 
number you can use depends on the screen width 
of your computer. 




SGN tells the computer to find out the sign of a 
number. It produces - 1 for a negative number, 
for zero and + 1 for positive numbers. E.g. 
SGN( - 30) is - 1 , SGN(7) is + 1 and SGN(O) is 0. 

DIM tells the computer how much memory space 
will be needed for an "array" (a row or a grid). E.g. 
DIM X(6) tells the computer to set aside an area 
large enough to contain a row of 6 elements and 
labelled X. DIM A(8,8) means a memory space 
labelled A and big enough to take 8 elements 
across and 8 down is needed. The number of 
elements of data used in the program must 
correspond to the numbers in brackets after DIM 
or you will get a bug. 

SQR takes square roots of numbers. E.g. SQR( 16) 
gives the answer 4. 

SIN calculates the sine of an angle. In aright-anglec 
triangle the length of the side opposite an angle, 
divided by the length of the hypotenuse (the side 
opposite the right angle) is the sine of that angle. 
When you use SIN in a program, the angle you are 
using it with must be measured in radians, not 
degrees. 

ATN is one of the trig, functions which computers 
can calculate (see also SIN above). It stands for 
arctangent and it is important to remember that it 
gives an answer in radians, not degrees. You will 
need to use a maths book to find out how this works 
if you do not already know about it. 

STOP tells the computer not to go any further in a 
program. Computers other than the ZX8 1 can use 
END instead. 

PEEK is a way of finding out what is in a specific 
area of the computer's memory. You need to use it 
with a number which specifies an "address" in the 
memory. 

NB not used on BBC. 

POKE is a special way of putting information in the 
computer's memory by using a memory "address". 
NB not used on BBC. 



ASCII chart 



ZX81 code chart 



Code 


ASCII 


Code 


ASCII 


number 


character 


number 


character 


Sc 


space 


62 


> 


33 


■ 
■ 


Da 


• 


O A 

34 




64 


(a 


35 


J J 
ft 


65 


If 






66 


B 


3 1 


0/ 


67 


C 


38 


& 


68 


D 


3y 


I 


69 


£ 


40 


( 


70 


F 


A 1 

41 


) 


71 


G 


42 


■4- 


72 


H 


43 


1 


73 


I 


A A 

44 




74 


T 

J 


A C 

45 




75 


K 


a a 

4b 


■ 


76 


L 


a n 
4x 


/ 


77 


M 


AO 

4o 





78 


N 


yl A 

4y 


1 


79 


O 


C A 

50 


2 


80 


P 


51 


3 


81 





CO 


A 

4 


82 


K 


53 


5 


83 


S 


54 


6 


84 


T 


55 


7 


85 


U 


56 




8 


86 


w W 

V 


C7 

Di 


9 


87 
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w 


58 


n 


88 


x 


59 


■ 


89 


Y 


60 


< 


90 


z 
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zxsi 
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Code 
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11 


i) 
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D 


12 


£ 
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13 


$ 
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F 
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14 
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■ 


44 


G 


15 


m 


45 


WW 

H 


16 


4 


46 


w> 

I 


17 


) 


47 


W} 

J 


18 


> 
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48 


K 


19 


< 


49 


L 
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50 


M 


21 


1 

+ 


51 


N 
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52 


O 
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53 


p 


24 


/ 

/ 


54 
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25 


■ 
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55 


R 


26 


i 


56 


S 


^7 
Zi 
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T 
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A 
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29 


1 

1 


59 


V 


30 


fx 
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w 


31 


3 


61 


X 


32 


4 


62 


Y 


33 


5 


63 


z 


34 


6 






35 


7 






3b 










32 


9 






38 


A 
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39 


B 






40 
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Chart of screen sizes 





Max. number of 

characters across 

(or number of columns) 


Max. number of 

lines down 

(or number of rows) 
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22 


23 
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64 


16 
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22 
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You can use any numbers 
you like for A and D 
provided they will fit 
on your screen. 




Answers 

You may find that your answers to Here are the changes to make the 

some of the puzzles are different to bugs appear in 5 places: 
the ones given here. As long as they 70 LET R=INT(RNDt5+1) 
work on your computer then this 

doesn't really matter, but check to * z l*? ^? SUB 220+20 * R 

' ' . . , *BA«80 ON R GOSUB 240,260,280,300,320 

see if they are as neat and simple as 
the answers in the book. 

Page 5 

Starship Takeoff 

Lines 30 and 40 select the numbers 
which determine what the force will 
be. To increase the range of possible 
forces, you can increase either the 20 
in line 30, or the 40 in line 40, or both of 
these numbers. Increasing the range 
of forces will obviously make the 
game more difficult. 

Page? 

Intergalactic Games 

Change lines 222 and 230 as follows: 

222 LET B=B+INT < lOOO/G) 
230 GOTO 20 

and add a new line 15: 

15 LET B=0 

Page 9 
Evil Alien 

Change lines 20 and 30 and add anew 
line 25 as follows: 

20 PRINT "HOW DIFFICULT? (& TO 30) " 
25 INPUT S 
30 LET G=INT(S/3> 

Page 1 1 

Beat the Bug Eyes 

To make the bugs appear in more than 
four places on the screen, you need to 
put a higher number than 4 in the 
middle of line 70, change line 80 and 
add more sub-routines at the end of 
the program - one for each extra 
position. 



240 LET D=5 
245 LET A=l 
250 GOTO 350 
2 AO LET D=l 
265 LET A=9 
270 GOTO 350 
280 LET D=5 
285 LET A=18 
290 GOTO 350 
300 LET D=10 
305 LET A=7 
310 GOTO 350 
320 LET D=15 
325 LET A=15 
330 GOTO 350 



To add more bugs, change the 10 in 
lines 30 and 220 to a higher number. 
(Make sure you use the same number 
for both lines.) 

Page 13 
Moonlander 

To increase the speed allowed for a 
safe landing, you need to make 
changes to lines 230, 240 and 250. You 
can use any numbers you like - the 
higher they are the easier the game 
will be. In this example, you are 
allowed a speed of 2 for a good 
landing and 7 for an OK landing: 

230 IF VI >7 THEN PRINT "YOU CRASHED 

- ALL DEAD " 
240 IF VI >2 AND Vl<=7 THEN PRINT "OK 

-BUT SOME INJURIES" 
250 IF Vl<=2 THEN PRINT "GOOD LANDING" 



Page 15 

Monsters of Galacticon 

Four ways of making this game harder 
are: 

1 Start the game with less people in 
the group by putting a smaller number 
than Sin line 40. 

2 Increase the number of monsters by 
changing the 4 in lines 20 and 30. Add 



extra monster names at lines 8 1 to 89 
using M$(5) and M$(6). 

3 Reduce the number of goes allowed 
by altering the 8 in line 160. 

4 Increase the chance of the monster 
being angered in line 330 by 
increasing ,4 a little. 

Page 17 
Alien Snipers 

In this game, N is the code number. To 
change the scoring to fit the code 
number you need to increase the 
score by N each time instead of 1. So, 
change line 1 90 as follows : 

S ZX190 IF I *=CHR* ( CODE < L* > +N ) THEN 

LET S=S+N 
★ ■A#190 IF I*=CHR* <ASC (L*> +n> then 

LET S=S+N 

Page 19 
Asteroid Belt 

You need to change line 260 so that the 
computer adds the number of stars to 
your score instead of 1 . The number of 
stars is controlled by the value chosen 
for N in line 70, so, as in the puzzle 
above, you need to add N to the score. 
You also need to change line 320. 

260 LET S-S+N 

320 PRINT "YOU SCORED "jSj " POINTS " 

Page 21 

Trip into the Future 

1 To increase the range of years 
which must elapse before you return 
to Earth, change the 100 in line 30 to a 
higher number, e.g. 150, like this: 

30 LET T=INT (RND*150+25) 

2 To increase the accuracy from 5 to 2 
years, change the 5s in lines 180 and 
190 to 2, like this: 

180 IF ASSCT-T2)<=2 THEN PRINT "YOU 

ARRIVED ON TIME" 
190 IF ABS(T-T2>>2 THEN PRINT "NOT 
48 EVEN CLOSE" 



3 Line 170 contains the number which 
determines the length of your lifetime. 
Change the 50 to a higher number for a 
longer lifetime. 

Page 23 
Death Valley 

You can make the valley longer by 
changing the number in line 30 to 
something higher than 200. 

Page 25 
Space Mines 

Add these lines to make the computer 
ask if you would like another game: 

645 PRINT "ANOTHER GAME? < TYPE Y DR N) " 

646 INPUT A* 

647 IF A*="Y" THEN GOTO 10 

You must then a new line at 5 and 
change line 30 to add the money you 
ended up with at the end of the game 
to the money allowed for the new 
game: 

5 LET M=0 

30 LET M=M+INT(RND»SO+10> *P 

(Make sure you use the correct 
version of RND for your computer.) 
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Usborne Computer Programs 



new books contains 14 simple games programs to 
play on a microcomputer.* Alongside the programs there are 
explanations of how they work and puzzles and suggestions for ways of 
changing them. Through playing these games even complete beginners 
will quickly begin to understand how a simple program works and be 
itching to write their own. There are tips and hints on writing programs 
and a summary of BASIC at the back of each book and also a chart which 
will help you convert programs in magazines and other books to work on 
your micro. 

*The programs in these books are suitable for use on the following 
micros: ZX81, BBC, TRS-80, VIC 20, Pet, Apples which use Palsoft BASIC 
and ZX Spectrum. 
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A colourful guide to 
microcomputers, how 
they work and what they 
can do, with lots of ideas 
for things you can do 
with a micro. 



A step-by-step guide to 
programming in BASIC 
for absolute beginners. 
With lots of programs to 
run on any 
microcomputer . 



A colourful look at how 
computers play Space 
Invaders, chess and 
other games, with lots of 
tips on how to beat the 
computer. 
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